home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs07.d81
/
tbasic.arc
/
ADD
(
.txt
)
next >
Wrap
Commodore BASIC
|
2009-10-10
|
2KB
|
183 lines
0 REM ADD(SEPT 27/84)
1 :
2 REM 1 STATEMENT, 0 FUNTIONS
3 :
4 REM KEYWORD CHARACTERS:3
5 :
6 REM KEWORD ROUTINE LINE SER#
7 REM ADD XADD 4474 055
8 :
9 REM E/IO RTNS(39/056)
10 :
11 REM ==============================
12 :
39 SETLFS = $FFBA
40 SETNAM = $FFBD
41 OPEN = $E1C1
42 CHKIN = $E11E
43 CLOSE = $E1CC
44 CLRCHN = $FFCC
45 GETIN = $E124
114 .ASC "AD[196]"
1114 .WORD XADD-1
4474 XADD JSR $AD9E
4476 JSR $B6A3
4478 STA T3
4480 TXA
4482 PHA
4484 TYA
4486 PHA
4488 LDA T3
4490 JSR $B47D
4492 TAX
4494 BNE XA1
4496 JMP $AF08
4498 XA1 CLC
4500 ADC #2
4502 STA T3
4504 JSR $B47D
4506 TAY
4508 PLA
4510 STA $23
4512 PLA
4514 STA $22
4516 DEY
4518 LDA #"P"
4520 STA ($62),Y
4522 DEY
4524 LDA #","
4526 LDA ($62),Y
4528 XA2 DEY
4530 BMI XA3
4532 LDA ($22),Y
4534 STA ($62),Y
4536 BNE XA2
4538 XA3 LDA T3
4540 LDX $62
4542 LDY $63
4544 JSR SETNAM
4546 JSR $79
4548 BEQ XA4
4550 JSR $AEFD
4552 JSR $B79E
4554 .BYTE $2C
4556 XA4 LDX #8
4558 LDA #$63
4560 TAY
4562 JSR SETLFS
4564 JSR OPEN
4566 LDX #$63
4568 JSR CHKIN
4570 JSR DSKGET
4572 JSR DSKGET
4574 XA5 JSR DSKGET
4578 JSR DSKGET
4580 BNE XA7
4582 JSR CLSCLR
4584 JSR $A659
4586 JMP $E386
4590 XA7 JSR DSKGET
4592 STA $14
4594 JSR DSKGET
4596 STA $15
4598 LDY #0
4600 XA8 JSR DSKGET
4602 STA $200,Y
4604 BEQ XA9
4606 INY
4608 BNE XA8
4610 XA9 TYA
4612 CLC
4614 ADC #5
4616 STA $0B
4618 JSR $A613
4620 BCC XA13
4622 LDY #1
4624 LDA ($5F),Y
4626 STA $23
4628 LDA $2D
4630 STA $22
4632 LDA $60
4634 STA $25
4636 LDA $5F
4638 DEY
4640 SBC ($5F),Y
4642 CLC
4644 ADC $2D
4646 STA $2D
4648 STA $24
4650 LDA $2E
4652 ADC #$FF
4654 STA $2E
4656 SBC $60
4658 TAX
4660 SEC
4662 XA10 BCC XA5
4664 LDA $5F
4666 SBC $2D
4668 TAY
4670 BCS XA11
4672 INX
4674 DEC $25
4676 XA11 CLC
4678 ADC $22
4680 BCC XA12
4682 DEC $23
4684 CLC
4686 XA12 LDA ($22),Y
4688 STA ($24),Y
4690 INY
4692 BNE XA12
4694 INC $23
4696 INC $25
4698 DEX
4700 BNE XA12
4702 XA13 JSR $A663
4704 JSR $A533
4706 CLC
4708 LDA $2D
4710 STA $5A
4712 ADC $0B
4714 STA $58
4716 LDY $2E
4718 STY $5B
4720 BCC XA14
4722 INY
4724 XA14 STY $59
4726 JSR $A3B8
4728 LDA $14
4730 LDY $15
4732 STA $1FE
4734 STY $1FF
4736 LDA #31
4738 LDY #32
4740 STA $2D
4742 STY $2E
4744 LDY $0B
4746 DEY
4748 XA15 LDA $01FC,Y
4750 STA ($5F),Y
4752 DEY
4754 BPL XA15
4756 JSR $A663
4758 JSR $A533
4760 CLC
4762 BCC XA10
4766 DSKGET JSR GETIN
4768 PHA
4770 LDA $90
4772 AND #$BF
4774 BNE DKG1
4776 PLA
4778 RTS
4780 DKG1 JSR CLSCLR
4782 LDX #$1D
4784 LDA #<MRGERR
4786 STA $22
4788 LDA #>MRGERR
4790 JMP $A445
4794 MRGERR .ASC "MERG[197]"
4798 CLSCLR LDA #$63
4800 JSR CLOSE
4802 JMP CLRCHN